home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Use_of_DWM2084049202007.psc / dwm glas / Mod_DWM.bas < prev    next >
BASIC Source File  |  2007-09-20  |  798b  |  32 lines
  1. Attribute VB_Name = "Mod_DWM"
  2. Option Explicit
  3.  
  4. Public Function FA_DWM_Init_GlasFrame(ByVal hWnd As Long, Pos_Top As Integer, Pos_Bottom As Integer, Pos_Left As Integer, Pos_Right As Integer)
  5.  
  6. Dim Margins As TRect
  7. Margins.M_Buttom = Pos_Bottom
  8. Margins.M_Left = Pos_Left
  9. Margins.M_Right = Pos_Right
  10. Margins.M_Top = Pos_Top
  11. DwmExtendFrameIntoClientArea hWnd, Margins
  12.  
  13. End Function
  14.  
  15. Public Function FA_DWM_Init_BlurBehind(ByVal hWnd As Long)
  16.  
  17. Dim BlurFlag As DWM_BlurBehind
  18.  
  19. BlurFlag.dwFlags = 1
  20. BlurFlag.fEnable = True
  21. BlurFlag.RGNBlur = vbNull
  22. BlurFlag.tMAX = False
  23. DwmEnableBlurBehindWindow hWnd, BlurFlag
  24.  
  25. End Function
  26.  
  27. Public Function FA_DWM_CompositionColor(TheForm As Form, R As Integer, G As Integer, B As Integer)
  28.  
  29. TheForm.BackColor = RGB(R, G, B)
  30.  
  31. End Function
  32.